﻿Public Class xtf_ABMensayo02detalle
    Public obj_ensayo02detalle As cls_ensayo02detalle_ = Nothing
    Private col_ControlesValidar As List(Of Control)
    Private col_proceso_ As New Collections.Generic.List(Of cls_proceso_)

    Public Sub New(ByVal prm_idproceso1 As Integer, ByVal prm_idproceso2 As Integer, ByVal prm_idproceso3 As Integer)
        InitializeComponent()
        CargarPersonal_()
        CargarResultado()
        Me.Text = "Detalle - Nuevo"
        obj_ensayo02detalle = New cls_ensayo02detalle_
        AgregarValidacionesGlobal(Me, Me.lac_general, col_ControlesValidar)
        Dim proceso As New cls_proceso_
        proceso.Buscar(prm_idproceso1)
        col_proceso_.Add(proceso)
        If proceso.idproceso = 0 Then
            txt_proceso1.Text = " "
            opt_proceso1.Properties.Items(0).Enabled = False
            opt_proceso2.Properties.Items(0).Enabled = False
            opt_proceso3.Properties.Items(0).Enabled = False
            opt_proceso4.Properties.Items(0).Enabled = False
            opt_proceso5.Properties.Items(0).Enabled = False
            opt_proceso6.Properties.Items(0).Enabled = False
            opt_proceso7.Properties.Items(0).Enabled = False
            opt_proceso8.Properties.Items(0).Enabled = False
            opt_proceso9.Properties.Items(0).Enabled = False
            opt_proceso10.Properties.Items(0).Enabled = False
            chk_concavidad1.Enabled = False
            chk_deslineacion1.Enabled = False
            chk_faltafusion1.Enabled = False
            chk_faltapenetracion1.Enabled = False
            chk_fisuras1.Enabled = False
            chk_inclusionescoria1.Enabled = False
            chk_inclusiontungsteno1.Enabled = False
            chk_peliculadefectuosa1.Enabled = False
            chk_porosidad1.Enabled = False
            chk_socavacion1.Enabled = False
        Else
            txt_proceso1.Text = proceso.ToString
        End If
        proceso = New cls_proceso_
        proceso.Buscar(prm_idproceso2)
        col_proceso_.Add(proceso)
        If proceso.idproceso = 0 Then
            txt_proceso2.Text = " "
            opt_proceso1.Properties.Items(1).Enabled = False
            opt_proceso2.Properties.Items(1).Enabled = False
            opt_proceso3.Properties.Items(1).Enabled = False
            opt_proceso4.Properties.Items(1).Enabled = False
            opt_proceso5.Properties.Items(1).Enabled = False
            opt_proceso6.Properties.Items(1).Enabled = False
            opt_proceso7.Properties.Items(1).Enabled = False
            opt_proceso8.Properties.Items(1).Enabled = False
            opt_proceso9.Properties.Items(1).Enabled = False
            opt_proceso10.Properties.Items(1).Enabled = False
            chk_concavidad2.Enabled = False
            chk_deslineacion2.Enabled = False
            chk_faltafusion2.Enabled = False
            chk_faltapenetracion2.Enabled = False
            chk_fisuras2.Enabled = False
            chk_inclusionescoria2.Enabled = False
            chk_inclusiontungsteno2.Enabled = False
            chk_peliculadefectuosa2.Enabled = False
            chk_porosidad2.Enabled = False
            chk_socavacion2.Enabled = False
        Else
            txt_proceso2.Text = proceso.ToString
        End If
        proceso = New cls_proceso_
        proceso.Buscar(prm_idproceso3)
        col_proceso_.Add(proceso)
        If proceso.idproceso = 0 Then
            txt_proceso3.Text = " "
            opt_proceso1.Properties.Items(2).Enabled = False
            opt_proceso2.Properties.Items(2).Enabled = False
            opt_proceso3.Properties.Items(2).Enabled = False
            opt_proceso4.Properties.Items(2).Enabled = False
            opt_proceso5.Properties.Items(2).Enabled = False
            opt_proceso6.Properties.Items(2).Enabled = False
            opt_proceso7.Properties.Items(2).Enabled = False
            opt_proceso8.Properties.Items(2).Enabled = False
            opt_proceso9.Properties.Items(2).Enabled = False
            opt_proceso10.Properties.Items(2).Enabled = False
            chk_concavidad3.Enabled = False
            chk_deslineacion3.Enabled = False
            chk_faltafusion3.Enabled = False
            chk_faltapenetracion3.Enabled = False
            chk_fisuras3.Enabled = False
            chk_inclusionescoria3.Enabled = False
            chk_inclusiontungsteno3.Enabled = False
            chk_peliculadefectuosa3.Enabled = False
            chk_porosidad3.Enabled = False
            chk_socavacion3.Enabled = False
        Else
            txt_proceso3.Text = proceso.ToString
        End If
    End Sub

    Private Sub CargarPersonal_()
        Dim personal_ As New cls_personal_
        Dim parametro As New cls_config_parametro_
        personal_.CargarXidcargo(CInt(parametro.Buscar("cargoSoldador").valor))
        cargarCombo(cbo_idpersonal1, personal_.Items, False, True)
        cargarCombo(cbo_idpersonal2, personal_.Items, False, True)
        cargarCombo(cbo_idpersonal3, personal_.Items, False, True)
        cargarCombo(cbo_idpersonal4, personal_.Items, False, True)
        cargarCombo(cbo_idpersonal5, personal_.Items, False, True)
        cargarCombo(cbo_idpersonal6, personal_.Items, False, True)
        cargarCombo(cbo_idpersonal7, personal_.Items, False, True)
        cargarCombo(cbo_idpersonal8, personal_.Items, False, True)
        cargarCombo(cbo_idpersonal9, personal_.Items, False, True)
        cargarCombo(cbo_idpersonal10, personal_.Items, False, True)
    End Sub

    Private Sub CargarResultado()
        Dim resultado As New cls_resultado_
        resultado.CargarTodos()
        cargarCombo(cbo_idresultado, resultado.Items, False, True)
    End Sub


    Public Sub Modificar(ByRef ensayo02detalle As cls_ensayo02detalle_)
        If IsNothing(obj_ensayo02detalle) Then
            obj_ensayo02detalle = New cls_ensayo02detalle_
        End If
        obj_ensayo02detalle = ensayo02detalle

        Me.Text = "Detalle - " & obj_ensayo02detalle.ToString
        'txt_ID.Text = obj_localidad.idlocalidad
        txt_numerosoldadura.Text = obj_ensayo02detalle.numerosoldadura
        cbo_idresultado.EditValue = obj_ensayo02detalle.idresultado
        txt_posicion.Text = obj_ensayo02detalle.posicion
        txt_ubicaciondefectos.Text = obj_ensayo02detalle.ubicaciondefectos

        cbo_idpersonal1.EditValue = obj_ensayo02detalle.idpersonal1
        For i As Integer = 0 To 2
            If col_proceso_(i).idproceso = obj_ensayo02detalle.idproceso1 Then
                opt_proceso1.SelectedIndex = i
            End If
        Next
        cbo_idpersonal2.EditValue = obj_ensayo02detalle.idpersonal2
        For i As Integer = 0 To 2
            If col_proceso_(i).idproceso = obj_ensayo02detalle.idproceso2 Then
                opt_proceso2.SelectedIndex = i
            End If
        Next
        cbo_idpersonal3.EditValue = obj_ensayo02detalle.idpersonal3
        For i As Integer = 0 To 2
            If col_proceso_(i).idproceso = obj_ensayo02detalle.idproceso3 Then
                opt_proceso3.SelectedIndex = i
            End If
        Next
        cbo_idpersonal4.EditValue = obj_ensayo02detalle.idpersonal4
        For i As Integer = 0 To 2
            If col_proceso_(i).idproceso = obj_ensayo02detalle.idproceso4 Then
                opt_proceso4.SelectedIndex = i
            End If
        Next
        cbo_idpersonal5.EditValue = obj_ensayo02detalle.idpersonal5
        For i As Integer = 0 To 2
            If col_proceso_(i).idproceso = obj_ensayo02detalle.idproceso5 Then
                opt_proceso5.SelectedIndex = i
            End If
        Next
        cbo_idpersonal6.EditValue = obj_ensayo02detalle.idpersonal6 
        For i As Integer = 0 To 2
            If col_proceso_(i).idproceso = obj_ensayo02detalle.idproceso6 Then
                opt_proceso6.SelectedIndex = i
            End If
        Next
        cbo_idpersonal7.EditValue = obj_ensayo02detalle.idpersonal7
        For i As Integer = 0 To 2
            If col_proceso_(i).idproceso = obj_ensayo02detalle.idproceso7 Then
                opt_proceso7.SelectedIndex = i
            End If
        Next
        cbo_idpersonal8.EditValue = obj_ensayo02detalle.idpersonal8
        For i As Integer = 0 To 2
            If col_proceso_(i).idproceso = obj_ensayo02detalle.idproceso8 Then
                opt_proceso8.SelectedIndex = i
            End If
        Next
        cbo_idpersonal9.EditValue = obj_ensayo02detalle.idpersonal9
        For i As Integer = 0 To 2
            If col_proceso_(i).idproceso = obj_ensayo02detalle.idproceso9 Then
                opt_proceso9.SelectedIndex = i
            End If
        Next
        cbo_idpersonal10.EditValue = obj_ensayo02detalle.idpersonal10
        For i As Integer = 0 To 2
            If col_proceso_(i).idproceso = obj_ensayo02detalle.idproceso10 Then
                opt_proceso10.SelectedIndex = i
            End If
        Next

        chk_porosidad1.Checked = IIf(obj_ensayo02detalle.porosidad1 = col_proceso_(0).idproceso, True, False)
        chk_inclusionescoria1.Checked = IIf(obj_ensayo02detalle.inclusionescoria1 = col_proceso_(0).idproceso, True, False)
        chk_inclusiontungsteno1.Checked = IIf(obj_ensayo02detalle.inclusiontungsteno1 = col_proceso_(0).idproceso, True, False)
        chk_faltapenetracion1.Checked = IIf(obj_ensayo02detalle.faltapenetracion1 = col_proceso_(0).idproceso, True, False)
        chk_faltafusion1.Checked = IIf(obj_ensayo02detalle.faltafusion1 = col_proceso_(0).idproceso, True, False)
        chk_socavacion1.Checked = IIf(obj_ensayo02detalle.socavacion1 = col_proceso_(0).idproceso, True, False)
        chk_concavidad1.Checked = IIf(obj_ensayo02detalle.concavidad1 = col_proceso_(0).idproceso, True, False)
        'obj_ensayo02detalle.protuberanciainterna1 = IIf(chk_protuberanciainterna1.Checked, col_proceso_(0).idproceso, 0)
        chk_deslineacion1.Checked = IIf(obj_ensayo02detalle.deslineacion1 = col_proceso_(0).idproceso, True, False)
        chk_fisuras1.Checked = IIf(obj_ensayo02detalle.fisuras1 = col_proceso_(0).idproceso, True, False)
        chk_peliculadefectuosa1.Checked = IIf(obj_ensayo02detalle.peliculadefectuosa1 = col_proceso_(0).idproceso, True, False)

        chk_porosidad2.Checked = IIf(obj_ensayo02detalle.porosidad2 = col_proceso_(1).idproceso, True, False)
        chk_inclusionescoria2.Checked = IIf(obj_ensayo02detalle.inclusionescoria2 = col_proceso_(1).idproceso, True, False)
        chk_inclusiontungsteno2.Checked = IIf(obj_ensayo02detalle.inclusiontungsteno2 = col_proceso_(1).idproceso, True, False)
        chk_faltapenetracion2.Checked = IIf(obj_ensayo02detalle.faltapenetracion2 = col_proceso_(1).idproceso, True, False)
        chk_faltafusion2.Checked = IIf(obj_ensayo02detalle.faltafusion2 = col_proceso_(1).idproceso, True, False)
        chk_socavacion2.Checked = IIf(obj_ensayo02detalle.socavacion2 = col_proceso_(1).idproceso, True, False)
        chk_concavidad2.Checked = IIf(obj_ensayo02detalle.concavidad2 = col_proceso_(1).idproceso, True, False)
        'obj_ensayo02detalle.protuberanciainterna2 = IIf(chk_protuberanciainterna2.Checked, col_proceso_(1).idproceso, 0)
        chk_deslineacion2.Checked = IIf(obj_ensayo02detalle.deslineacion2 = col_proceso_(1).idproceso, True, False)
        chk_fisuras2.Checked = IIf(obj_ensayo02detalle.fisuras2 = col_proceso_(1).idproceso, True, False)
        chk_peliculadefectuosa2.Checked = IIf(obj_ensayo02detalle.peliculadefectuosa2 = col_proceso_(1).idproceso, True, False)

        chk_porosidad3.Checked = IIf(obj_ensayo02detalle.porosidad3 = col_proceso_(2).idproceso, True, False)
        chk_inclusionescoria3.Checked = IIf(obj_ensayo02detalle.inclusionescoria3 = col_proceso_(2).idproceso, True, False)
        chk_inclusiontungsteno3.Checked = IIf(obj_ensayo02detalle.inclusiontungsteno3 = col_proceso_(2).idproceso, True, False)
        chk_faltapenetracion3.Checked = IIf(obj_ensayo02detalle.faltapenetracion3 = col_proceso_(2).idproceso, True, False)
        chk_faltafusion3.Checked = IIf(obj_ensayo02detalle.faltafusion3 = col_proceso_(2).idproceso, True, False)
        chk_socavacion3.Checked = IIf(obj_ensayo02detalle.socavacion3 = col_proceso_(2).idproceso, True, False)
        chk_concavidad3.Checked = IIf(obj_ensayo02detalle.concavidad3 = col_proceso_(2).idproceso, True, False)
        'obj_ensayo02detalle.protuberanciainterna3 = IIf(chk_protuberanciainterna3.Checked, col_proceso_(2).idproceso, 0)
        chk_deslineacion3.Checked = IIf(obj_ensayo02detalle.deslineacion3 = col_proceso_(2).idproceso, True, False)
        chk_fisuras3.Checked = IIf(obj_ensayo02detalle.fisuras3 = col_proceso_(2).idproceso, True, False)
        chk_peliculadefectuosa3.Checked = IIf(obj_ensayo02detalle.peliculadefectuosa3 = col_proceso_(2).idproceso, True, False)



        'obj_ensayo02detalle.tipoensayo02detalle = Nothing
        'obj_ensayo02detalle.pais = Nothing
        'obj_ensayo02detalle.provincia = Nothing
        'obj_ensayo02detalle.localidad = Nothing
        'obj_ensayo02detalle.barrio = Nothing

    End Sub

    Public Function ComprobarDatos() As Boolean
        'If cbo_Tipoensayo02detalle.Enabled = False Then
        '    ErrManagerShow("001018")
        '    Return False
        'End If
        'If Not ControlarValidacionesGlobal(col_ControlesValidar) Then
        '    ErrManagerShow("000004", Me)
        '    Return False
        'End If
        Return True
    End Function

    Private Sub btn_Guardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Guardar.Click
        If ComprobarDatos() Then
            obj_ensayo02detalle.ubicaciondefectos = txt_ubicaciondefectos.Text
            obj_ensayo02detalle.numerosoldadura = txt_numerosoldadura.Text
            obj_ensayo02detalle.posicion = txt_posicion.Text
            'obj_ensayo02detalle.idreparacion = cbo_idre
            obj_ensayo02detalle.idresultado = cbo_idresultado.EditValue

            obj_ensayo02detalle.idpersonal1 = cbo_idpersonal1.EditValue
            obj_ensayo02detalle.idproceso1 = col_proceso_(opt_proceso1.SelectedIndex).idproceso
            obj_ensayo02detalle.idpersonal2 = cbo_idpersonal2.EditValue
            obj_ensayo02detalle.idproceso2 = col_proceso_(opt_proceso2.SelectedIndex).idproceso
            obj_ensayo02detalle.idpersonal3 = cbo_idpersonal3.EditValue
            obj_ensayo02detalle.idproceso3 = col_proceso_(opt_proceso3.SelectedIndex).idproceso
            obj_ensayo02detalle.idpersonal4 = cbo_idpersonal4.EditValue
            obj_ensayo02detalle.idproceso4 = col_proceso_(opt_proceso4.SelectedIndex).idproceso
            obj_ensayo02detalle.idpersonal5 = cbo_idpersonal5.EditValue
            obj_ensayo02detalle.idproceso5 = col_proceso_(opt_proceso5.SelectedIndex).idproceso
            obj_ensayo02detalle.idpersonal6 = cbo_idpersonal6.EditValue
            obj_ensayo02detalle.idproceso6 = col_proceso_(opt_proceso6.SelectedIndex).idproceso
            obj_ensayo02detalle.idpersonal7 = cbo_idpersonal7.EditValue
            obj_ensayo02detalle.idproceso7 = col_proceso_(opt_proceso7.SelectedIndex).idproceso
            obj_ensayo02detalle.idpersonal8 = cbo_idpersonal8.EditValue
            obj_ensayo02detalle.idproceso8 = col_proceso_(opt_proceso8.SelectedIndex).idproceso
            obj_ensayo02detalle.idpersonal9 = cbo_idpersonal9.EditValue
            obj_ensayo02detalle.idproceso9 = col_proceso_(opt_proceso9.SelectedIndex).idproceso
            obj_ensayo02detalle.idpersonal10 = cbo_idpersonal10.EditValue
            obj_ensayo02detalle.idproceso10 = col_proceso_(opt_proceso10.SelectedIndex).idproceso

            obj_ensayo02detalle.porosidad1 = IIf(chk_porosidad1.Checked, col_proceso_(0).idproceso, 0)
            obj_ensayo02detalle.inclusionescoria1 = IIf(chk_inclusionescoria1.Checked, col_proceso_(0).idproceso, 0)
            obj_ensayo02detalle.inclusiontungsteno1 = IIf(chk_inclusiontungsteno1.Checked, col_proceso_(0).idproceso, 0)
            obj_ensayo02detalle.faltapenetracion1 = IIf(chk_faltapenetracion1.Checked, col_proceso_(0).idproceso, 0)
            obj_ensayo02detalle.faltafusion1 = IIf(chk_faltafusion1.Checked, col_proceso_(0).idproceso, 0)
            obj_ensayo02detalle.socavacion1 = IIf(chk_socavacion1.Checked, col_proceso_(0).idproceso, 0)
            obj_ensayo02detalle.concavidad1 = IIf(chk_concavidad1.Checked, col_proceso_(0).idproceso, 0)
            'obj_ensayo02detalle.protuberanciainterna1 = IIf(chk_protuberanciainterna1.Checked, col_proceso_(0).idproceso, 0)
            obj_ensayo02detalle.deslineacion1 = IIf(chk_deslineacion1.Checked, col_proceso_(0).idproceso, 0)
            obj_ensayo02detalle.fisuras1 = IIf(chk_fisuras1.Checked, col_proceso_(0).idproceso, 0)
            obj_ensayo02detalle.peliculadefectuosa1 = IIf(chk_peliculadefectuosa1.Checked, col_proceso_(0).idproceso, 0)

            obj_ensayo02detalle.porosidad2 = IIf(chk_porosidad2.Checked, col_proceso_(1).idproceso, 0)
            obj_ensayo02detalle.inclusionescoria2 = IIf(chk_inclusionescoria2.Checked, col_proceso_(1).idproceso, 0)
            obj_ensayo02detalle.inclusiontungsteno2 = IIf(chk_inclusiontungsteno2.Checked, col_proceso_(1).idproceso, 0)
            obj_ensayo02detalle.faltapenetracion2 = IIf(chk_faltapenetracion2.Checked, col_proceso_(1).idproceso, 0)
            obj_ensayo02detalle.faltafusion2 = IIf(chk_faltafusion2.Checked, col_proceso_(1).idproceso, 0)
            obj_ensayo02detalle.socavacion2 = IIf(chk_socavacion2.Checked, col_proceso_(1).idproceso, 0)
            obj_ensayo02detalle.concavidad2 = IIf(chk_concavidad2.Checked, col_proceso_(1).idproceso, 0)
            'obj_ensayo02detalle.protuberanciainterna2= IIf(chk_protuberanciainterna2.Checked, col_proceso_(1).idproceso, 0)
            obj_ensayo02detalle.deslineacion2 = IIf(chk_deslineacion2.Checked, col_proceso_(1).idproceso, 0)
            obj_ensayo02detalle.fisuras2 = IIf(chk_fisuras2.Checked, col_proceso_(1).idproceso, 0)
            obj_ensayo02detalle.peliculadefectuosa2 = IIf(chk_peliculadefectuosa2.Checked, col_proceso_(1).idproceso, 0)

            obj_ensayo02detalle.porosidad3 = IIf(chk_porosidad3.Checked, col_proceso_(2).idproceso, 0)
            obj_ensayo02detalle.inclusionescoria3 = IIf(chk_inclusionescoria3.Checked, col_proceso_(2).idproceso, 0)
            obj_ensayo02detalle.inclusiontungsteno3 = IIf(chk_inclusiontungsteno3.Checked, col_proceso_(2).idproceso, 0)
            obj_ensayo02detalle.faltapenetracion3 = IIf(chk_faltapenetracion3.Checked, col_proceso_(2).idproceso, 0)
            obj_ensayo02detalle.faltafusion3 = IIf(chk_faltafusion3.Checked, col_proceso_(2).idproceso, 0)
            obj_ensayo02detalle.socavacion3 = IIf(chk_socavacion3.Checked, col_proceso_(2).idproceso, 0)
            obj_ensayo02detalle.concavidad3 = IIf(chk_concavidad3.Checked, col_proceso_(2).idproceso, 0)
            'obj_ensayo02detalle.protuberanciainterna2= IIf(chk_protuberanciainterna3.Checked, col_proceso_(2).idproceso, 0)
            obj_ensayo02detalle.deslineacion3 = IIf(chk_deslineacion3.Checked, col_proceso_(2).idproceso, 0)
            obj_ensayo02detalle.fisuras3 = IIf(chk_fisuras3.Checked, col_proceso_(2).idproceso, 0)
            obj_ensayo02detalle.peliculadefectuosa3 = IIf(chk_peliculadefectuosa3.Checked, col_proceso_(2).idproceso, 0)

            'obj_ensayo02detalle.referencia As String = txt_re

            Me.DialogResult = Windows.Forms.DialogResult.OK
        End If
    End Sub

    Private Sub btn_Cerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Cerrar.Click
        Me.DialogResult = Windows.Forms.DialogResult.Cancel
    End Sub


    Private Sub cbo_idpersonal1_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_idpersonal1.EditValueChanged
        Dim personal As New cls_personal_
        If personal.Buscar(cbo_idpersonal1.EditValue) Then
            txt_cuño1.Text = personal.cuño
            opt_proceso1.Enabled = True
        Else
            txt_cuño1.Text = ""
            opt_proceso1.Enabled = False
        End If
    End Sub
    Private Sub cbo_idpersonal2_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_idpersonal2.EditValueChanged
        Dim personal As New cls_personal_
        If personal.Buscar(cbo_idpersonal2.EditValue) Then
            txt_cuño2.Text = personal.cuño
            opt_proceso2.Enabled = True
        Else
            txt_cuño2.Text = ""
            opt_proceso2.Enabled = False
        End If
    End Sub
    Private Sub cbo_idpersonal3_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_idpersonal3.EditValueChanged
        Dim personal As New cls_personal_
        If personal.Buscar(cbo_idpersonal3.EditValue) Then
            txt_cuño3.Text = personal.cuño
            opt_proceso3.Enabled = True
        Else
            txt_cuño3.Text = ""
            opt_proceso3.Enabled = False
        End If
    End Sub
    Private Sub cbo_idpersonal4_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_idpersonal4.EditValueChanged
        Dim personal As New cls_personal_
        If personal.Buscar(cbo_idpersonal4.EditValue) Then
            txt_cuño4.Text = personal.cuño
            opt_proceso4.Enabled = True
        Else
            txt_cuño4.Text = ""
            opt_proceso4.Enabled = False
        End If
    End Sub
    Private Sub cbo_idpersonal5_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_idpersonal5.EditValueChanged
        Dim personal As New cls_personal_
        If personal.Buscar(cbo_idpersonal5.EditValue) Then
            txt_cuño5.Text = personal.cuño
            opt_proceso5.Enabled = True
        Else
            txt_cuño5.Text = ""
            opt_proceso5.Enabled = False
        End If
    End Sub
    Private Sub cbo_idpersonal6_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_idpersonal6.EditValueChanged
        Dim personal As New cls_personal_
        If personal.Buscar(cbo_idpersonal6.EditValue) Then
            txt_cuño6.Text = personal.cuño
            opt_proceso6.Enabled = True
        Else
            txt_cuño6.Text = ""
            opt_proceso6.Enabled = False
        End If
    End Sub
    Private Sub cbo_idpersonal7_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_idpersonal7.EditValueChanged
        Dim personal As New cls_personal_
        If personal.Buscar(cbo_idpersonal7.EditValue) Then
            txt_cuño7.Text = personal.cuño
            opt_proceso7.Enabled = True
        Else
            txt_cuño7.Text = ""
            opt_proceso7.Enabled = False
        End If
    End Sub
    Private Sub cbo_idpersonal8_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_idpersonal8.EditValueChanged
        Dim personal As New cls_personal_
        If personal.Buscar(cbo_idpersonal8.EditValue) Then
            txt_cuño8.Text = personal.cuño
            opt_proceso8.Enabled = True
        Else
            txt_cuño8.Text = ""
            opt_proceso8.Enabled = False
        End If
    End Sub
    Private Sub cbo_idpersonal9_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_idpersonal9.EditValueChanged
        Dim personal As New cls_personal_
        If personal.Buscar(cbo_idpersonal9.EditValue) Then
            txt_cuño9.Text = personal.cuño
            opt_proceso9.Enabled = True
        Else
            txt_cuño9.Text = ""
            opt_proceso9.Enabled = False
        End If
    End Sub
    Private Sub cbo_idpersonal10_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_idpersonal10.EditValueChanged
        Dim personal As New cls_personal_
        If personal.Buscar(cbo_idpersonal10.EditValue) Then
            txt_cuño10.Text = personal.cuño
            opt_proceso10.Enabled = True
        Else
            txt_cuño10.Text = ""
            opt_proceso10.Enabled = False
        End If
    End Sub

    Private Sub txt_cuño1_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_cuño1.EditValueChanged

    End Sub

    Private Sub txt_cuño1_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_cuño1.Validated
        Dim personal As New cls_personal_
        If personal.BuscarXcuño(txt_cuño1.Text) Then
            cbo_idpersonal1.EditValue = personal.idpersonal
        Else
            cbo_idpersonal1.EditValue = Nothing
            txt_cuño1.Text = ""
        End If
    End Sub

    Private Sub txt_cuño2_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_cuño2.Validated
        Dim personal As New cls_personal_
        If personal.BuscarXcuño(txt_cuño2.Text) Then
            cbo_idpersonal2.EditValue = personal.idpersonal
        Else
            cbo_idpersonal2.EditValue = Nothing
            txt_cuño2.Text = ""
        End If
    End Sub

    Private Sub txt_cuño3_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_cuño3.Validated
        Dim personal As New cls_personal_
        If personal.BuscarXcuño(txt_cuño3.Text) Then
            cbo_idpersonal3.EditValue = personal.idpersonal
        Else
            cbo_idpersonal3.EditValue = Nothing
            txt_cuño3.Text = ""
        End If
    End Sub

    Private Sub txt_cuño4_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_cuño4.Validated
        Dim personal As New cls_personal_
        If personal.BuscarXcuño(txt_cuño4.Text) Then
            cbo_idpersonal4.EditValue = personal.idpersonal
        Else
            cbo_idpersonal4.EditValue = Nothing
            txt_cuño4.Text = ""
        End If
    End Sub

    Private Sub txt_cuño5_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_cuño5.Validated
        Dim personal As New cls_personal_
        If personal.BuscarXcuño(txt_cuño5.Text) Then
            cbo_idpersonal5.EditValue = personal.idpersonal
        Else
            cbo_idpersonal5.EditValue = Nothing
            txt_cuño5.Text = ""
        End If
    End Sub

    Private Sub txt_cuño6_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_cuño6.Validated
        Dim personal As New cls_personal_
        If personal.BuscarXcuño(txt_cuño6.Text) Then
            cbo_idpersonal6.EditValue = personal.idpersonal
        Else
            cbo_idpersonal6.EditValue = Nothing
            txt_cuño6.Text = ""
        End If
    End Sub

    Private Sub txt_cuño7_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_cuño7.Validated
        Dim personal As New cls_personal_
        If personal.BuscarXcuño(txt_cuño7.Text) Then
            cbo_idpersonal7.EditValue = personal.idpersonal
        Else
            cbo_idpersonal7.EditValue = Nothing
            txt_cuño7.Text = ""
        End If
    End Sub

    Private Sub txt_cuño8_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_cuño8.Validated
        Dim personal As New cls_personal_
        If personal.BuscarXcuño(txt_cuño8.Text) Then
            cbo_idpersonal8.EditValue = personal.idpersonal
        Else
            cbo_idpersonal8.EditValue = Nothing
            txt_cuño8.Text = ""
        End If
    End Sub

    Private Sub txt_cuño9_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_cuño9.Validated
        Dim personal As New cls_personal_
        If personal.BuscarXcuño(txt_cuño9.Text) Then
            cbo_idpersonal9.EditValue = personal.idpersonal
        Else
            cbo_idpersonal9.EditValue = Nothing
            txt_cuño9.Text = ""
        End If
    End Sub

    Private Sub txt_cuño10_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_cuño10.Validated
        Dim personal As New cls_personal_
        If personal.BuscarXcuño(txt_cuño10.Text) Then
            cbo_idpersonal10.EditValue = personal.idpersonal
        Else
            cbo_idpersonal10.EditValue = Nothing
            txt_cuño10.Text = ""
        End If
    End Sub
End Class